home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).adf / FileLister / FileLister < prev    next >
Text File  |  1989-07-02  |  1KB  |  62 lines
  1.  
  2. LIBRARY "intuition.library"
  3. LIBRARY "graphics.library"
  4. Rp&=WINDOW(8)
  5. Wp&=WINDOW(7)
  6. sn$="Workbench Screen - File-Lister - © 1989 Christoph Hust - Public Domain"+CHR$(0)
  7. wn$="Wenn die Ausgabe anhält, bitte eine beliebige Taste drücken.            "+CHR$(0)
  8. CALL SetWindowTitles(Wp&,SADD(wn$),SADD(sn$))
  9.  
  10. CLS
  11. PRINT " ----> AmigaBASIC - File-Lister <----"
  12. PRINT 
  13. WHILE f$=""
  14.   IF f=1 THEN
  15.     CLS
  16.     PRINT "Inhalt"
  17.     PRINT 
  18.     FILES
  19.     PRINT 
  20.     PRINT "Taste !"
  21.     WHILE INKEY$="":WEND
  22.     CLS
  23.   END IF
  24.   LOCATE 3,1
  25.   LINE INPUT "Filename = ";f$
  26.   f=f+1
  27. WEND
  28. IF f$="*" THEN
  29.   CLS
  30.   SYSTEM
  31. END IF
  32. WIDTH 78
  33.  
  34. CLS
  35. OPEN f$ FOR INPUT AS #1
  36.   WHILE NOT EOF(1)
  37.     LINE INPUT #1,x$
  38.     nl%=nl%+1
  39.     lines=lines+1
  40.     IF nl%=22 THEN
  41.       LOCATE 22,1
  42.       CALL Text(Rp&,SADD(x$),LEN(x$))
  43.       BEEP
  44.       nl%=0
  45.       wn$="File : "+f$+"    Zeile : "+STR$(lines)+CHR$(0)
  46.       CALL SetWindowTitles(Wp&,SADD(wn$),-1)
  47.       WHILE INKEY$=""
  48.       WEND
  49.       CLS
  50.     ELSE
  51.       LOCATE nl%,1
  52.       CALL Text(Rp&,SADD(x$),LEN(x$))
  53.       x$=""
  54.     END IF
  55.   WEND
  56. CLOSE #1
  57. wn$="File : "+f$+"    Zeile : "+STR$(lines)+" (Ende)"+CHR$(0)
  58. CALL SetWindowTitles(Wp&,SADD(wn$),-1)
  59. WHILE INKEY$="":WEND
  60. CLS:SYSTEM
  61.  
  62.